home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0386.arc / TURBO1.LTG < prev    next >
Text File  |  1986-03-03  |  1KB  |  30 lines
  1.  
  2.                             Listing 1
  3.  
  4. (*---------------------------------------------------------------------
  5. !                                                                     !
  6. !        Runsym                                                       !
  7. !                                                                     !
  8. !           Test Driver for Symtab                                    !
  9. !                                                                     !
  10. !--------------------------------------------------------------------*)
  11.  
  12.  
  13. Program Runsym;
  14.  
  15. (*$ISymtab.Pas*)
  16.  
  17.  
  18. Var
  19.   Testsym : String [25];                       (* Actual Parameter *)
  20.   Outsym : Integer;
  21.  
  22. Begin
  23.   Syminit;                                     (* Initialize Table *)
  24.   Testsym := 'Omicron';
  25.   Outsym := Symtabin (Testsym);                (* Add a symbol *)
  26.   Writeln (Testsym,' ', Outsym);
  27.   Writeln (Symtab.Symtable[Outsym],' ',Outsym);
  28. End.
  29.  
  30.